home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / DLGoodies / assign.dopus5 next >
Text File  |  1996-08-29  |  1KB  |  49 lines
  1. /*
  2.  *  Assign a logical name to either a 
  3.  *     1) selected directory in sourcelister if ONE dir is selected.
  4.  *     2) path of source lister otherwise.
  5.  *
  6.  *  V1.0 (14.7.96) by David Lübbren.
  7.  *
  8.  *  Call: Arexx DOpus5:Arexx/assign.dopus5 {Qp}
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. PARSE ARG dopusport
  14. IF dopusport ~= "" THEN ADDRESS VALUE dopusport
  15. ELSE DO
  16.   SAY "No DOpus running !"
  17.   EXIT
  18. END
  19.  
  20. AssignmentDir = ""
  21. lf = '0a'x
  22.  
  23. lister query source
  24. IF rc = 0 THEN DO
  25.   PARSE VAR result handle .
  26.   lister query handle path
  27.   IF rc = 0 THEN DO
  28.     AssignmentDir = STRIP(result, 'B', '"')
  29.     lister query handle seldirs stem Directory.
  30.     IF rc = 0 & Directory.count = 1 THEN DO
  31.       AssignmentDir = AssignmentDir || Directory.0
  32.     END
  33.     ELSE DO
  34.       AssignmentDir = STRIP(AssignmentDir, 'T', '/')
  35.     END
  36.   END
  37. END
  38.  
  39. IF AssignmentDir ~= "" THEN DO
  40.   dopus getstring '"Assign to'lf''''AssignmentDir'''" 50 "" Ok|Cancel'
  41.   IF dopusrc ~= 0 THEN DO
  42.     LogicalDir = STRIP(STRIP(result, 'B', '"'), 'T', ':')
  43.     LogicalDir = LogicalDir ||':'
  44.     ADDRESS COMMAND 'Assign ' LogicalDir AssignmentDir 
  45.   END
  46. END
  47.  
  48. EXIT
  49.